﻿Public Class AngriffstabelleMechMG
    Inherits Angriffstabelle
    Public Sub New()
        INF = 65
        MECH = 55
        SSIEINHEIT = 55
        JGPZ = 6
        KPZ = 1
        TITANPZ = 0
        MEGAPZ = 0
        SPAEHER = 18
        FLAK = 6
        MISSILE = 35
        ART = 32
        RKW = 35
        LAEUFER = 6
        TTP = 20
        HOELLIUM = 20
        THELI = 35
        KHELI = 9
        Gebaeude = 1
        ABPZ = 2
        TTLAEUFER = 20
        HOVERCRAFT = 1
        BAUPANZER = 20
        VERSORGUNGSSCHIFF = -1
        HOVERFLAK = 3
        SCHWERESHOVERCRAFT = 0

        MOTORRAD = 55
        FLARE = 15
        PANZERABWEHRKANONE = 35
        WASSERFLUGZEUG = -1
        KANONENBOOT = -1
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWarsDC
                INF = 65
                MECH = 55
                SSIEINHEIT = 55
                MOTORRAD = 55
                SPAEHER = 18
                FLARE = 15
                FLAK = 5
                JGPZ = 8
                KPZ = 5
                MEGAPZ = 1
                ART = 15
                PANZERABWEHRKANONE = 35
                RKW = 35
                MISSILE = 35
                TTP = 20
                JAEGER = -1
                BOMBER = -1
                AUFKLAERER = -1
                WASSERFLUGZEUG = -1
                KHELI = 18
                THELI = 35
                KANONENBOOT = -1
                KREUZER = -1
                UBOOT = -1
                FLTR = -1
                SCHLFF = -1
                LBOOT = -1
            Case CommanderWarsGameModi.AdvanceWars, CommanderWarsGameModi.AdvanceWars2
                INF = 65
                MECH = 55
                SPAEHER = 18
                JGPZ = 6
                KPZ = 1
                TITANPZ = 1
                TTP = 20
                ART = 32
                RKW = 35
                FLAK = 6
                MISSILE = 35
                Gebaeude = 1
                JAEGER = -1
                BOMBER = -1
                KHELI = 9
                THELI = 35
                KREUZER = -1
                UBOOT = -1
                SCHLFF = -1
                LBOOT = -1
            Case CommanderWarsGameModi.AdvanceWarsDS
                INF = 65
                MECH = 55
                SPAEHER = 18
                JGPZ = 6
                KPZ = 1
                TITANPZ = 1
                MEGAPZ = 1
                TTP = 20
                ART = 32
                RKW = 35
                FLAK = 6
                MISSILE = 35
                LAEUFER = 6
                Gebaeude = 1
                HOELLIUM = 20
                JAEGER = -1
                BOMBER = -1
                TARNK = -1
                SBOMBE = -1
                KHELI = 9
                THELI = 35
                SCHLFF = -1
                KREUZER = -1
                LBOOT = -1
                UBOOT = -1
                SBOOT = -1
                FLTR = -1
            Case CommanderWarsGameModi.CommanderWars2
                'Infantrie
                INF = 75
                MECH = 55
                SSIEINHEIT = 35
                MOTORRAD = 35
                'Panzer
                SPAEHER = 10
                FLAK = 3
                JGPZ = 3
                KPZ = 1
                MEGAPZ = 1
                TITANPZ = 1
                ART = 10
                PANZERABWEHRKANONE = 30
                RKW = 20
                MISSILE = 20
                TTP = 15
                BAUPANZER = 15
                'Luftwaffe
                JAEGER = -1
                BOMBER = -1
                AUFKLAERER = -1
                WASSERFLUGZEUG = -1
                KHELI = 3
                THELI = 15
                'Seewaffe
                KREUZER = -1
                UBOOT = -1
                ZERSTOERER = -1
                FLTR = -1
                SCHLFF = -1
                LBOOT = -1
                'Gebaeude
                Gebaeude = 1
        End Select
    End Sub
End Class
